home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESAPPL1.S < prev    next >
Text File  |  1993-03-11  |  3KB  |  60 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8. ;-------------------------------------------------------------------------
  9. ; Define the offsets within the AES block storage area.
  10. ;-------------------------------------------------------------------------
  11.  
  12. aespb     =         0                   ; 'aespb' MUST be first!...
  13. pcontrl   =         0                   ;   Pointer to control array
  14. pglobal   =         4                   ;   Pointer to global array
  15. pintin    =         8                   ;   Pointer to intin array
  16. pintout   =        12                   ;   Pointer to intout array
  17. padrin    =        16                   ;   Pointer to adrin array
  18. padrout   =        20                   ;   Pointer to adrout array
  19.  
  20. control   =        24                   ; Control array is next...
  21. function  =        24                   ;   Function code
  22. sintin    =        26                   ;   size of intin
  23. sintout   =        28                   ;   size of intout
  24. sadrin    =        30                   ;   size of adrin
  25. sadrout   =        32                   ;   size of adrout
  26.  
  27. global    =        34                   ; Global array, needs no further def.
  28.  
  29. ;*************************************************************************
  30. ;*
  31. ;* Application manager functions 1 of 2.
  32. ;*
  33. ;*************************************************************************
  34.  
  35. ;-------------------------------------------------------------------------
  36. ; appl_init
  37. ; appl_exit
  38. ;-------------------------------------------------------------------------
  39.  
  40.           globl     _appl_init
  41. _appl_init:
  42.           lea       aesblock,a0                 ; load pointer to aes block
  43.  
  44.           lea       control(a0),a1              ; Now get the offsets of the
  45.           move.l    a1,pcontrl(a0)              ; control & global arrays
  46.           lea       global(a0),a1               ; within the block, & store
  47.           move.l    a1,pglobal(a0)              ; them in the aespb part.
  48.  
  49.           move.l    #$0A000100,d0      ; AControl  10,0,1,0                    ; Set up the appl_init call.
  50.           bra.b     appl_inout                  ; Continue at common code...
  51.           globl     _appl_exit
  52. _appl_exit:
  53.           move.l    #$13000100,d0      ; AControl  19,0,1,0                    ; Set up the appl_exit call.
  54. appl_inout:
  55.           jmp       aes_do                      ; Call AES, return to user.
  56.  
  57. ;         end of code
  58.  
  59.  
  60.